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ZTITLE "Network paqegenent Maintenance Operations Service routines’ 


MODULE MOMSERVIC 

LANGUAGE (BLI$$32) 
ADDRESSING_MODE (NOMEXTERNAL=LONG_RELATIVE), 
ADDRESSING” MO Fos (EXTERNAL=LONG_RECATIVE), 
DE ENT = ‘v04- 


Sz 


BEGIN 


PEPE SE ESI I IIIS IIIT TT TTT TTT irc reer cirri criti iti titi iii istiticiiiiiit 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:# THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corre 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tat SE AND WITH THE 
!* INCLUSION OF THE ABOVE Spd NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF oy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
t® OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® 


Ooo 


COOCOOCOoOOoS 


WN O CONOUSWN $$ O OOVNOUS WN Oo 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie eePOkat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBIL 
'® SOFTWARE ON EQUIPMENT WHICH IS N 
i 
SL eoudendeaneuasacnansenuedsteneenennencseensneseseuneoncoesonnceneseneanenes 
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ITY FOR THE USE OR RELIABILITY OF ITS 
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NOT SUPPLIED BY DIGITAL. 
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SssssoooseooosoeoSeoSS 


Transmit a ‘‘dump complete” message at the end of an upline 
po aoe for triggers, if the target does not respond 
to a tem ID message, send the gr loner message to both 
the *narduere NI address and the DECnet NI address. 


v03-002 MKP0002 Kathy Perko 11-Feb-1984 
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lee 
5 FACILITY: DECnet-VAX V2.0 Maintenance Operations Module 
37 i ABSTRACT: 
8 : This module contains routines to handle maintenance operations 
4 such as trigger, dump, and Line and circuit Loop. 
0041 ENVIRONMENT: VAX/VMS Operating System 
Goes AUTHOR: Kathy Perko 
Does CREATION DATE: 5S-Jan-1983 
5 i MODIFIED BY: 
8 ! V03-004 MKP0004 12-June-1984 
3 Add the enamete oe = logging events. 
1 } v03-003 mKP0003 Kathy Perko 28-Apr i l-1984 
ae 
5 t 
§ 1 
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3 H 2 1! se Remote console protocol on Ethernet for boat messages 

3 1! nstead of a¢/quep protocol . Also, fix parsing of 

3 1! autoservice initial MOP message to check for loop assistance 
; ? : : requests. 

; § 7! v03-001 MKP0001 Kathy Perko g-fay~ 1985 

; 66 ,! Add node id to event Logged for Aborted Service Request. 

; © 0065 1! Fix the trigger at the beginning of LOAD to try both 

3 $6 : the HIORD and the hardware address of the target. 

; : 1 !<- 

3; WF 069 1 
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1 ZSBTTL ‘Declarations’ 


' 
; TABLE OF CONTENTS: 


FORWARD ROUTINE 

mom$operservice : NOVALUE, 

sonSoutoseryice : NOVALUE, 

mom_get_initial_mop msg: NOVALUE 
og — “volunteer ~aisistance: NO NOVALUE. 

: mom$trig 

monstrigger 

mom$autohandler, 

mom$log_event : NOVALUE, 


mom$chk_mop_error  : NOVALUE; 
7 


i INCLUDE FILES: 


_ LITERAL 
_unsmopdev, 
non _alpbfovf, 
mdt $gk _mopdevent; 


ARS 


a a ee ee ed ed nd = = = od od = = = = = 3 — Ss 


Seles 


« hai 


mom$parse_ nice entity, 
mom$test, 

mom$loa 

monsbid_ re ly, 

mom$b | dm 
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AX-11 e iss-32 V4.0-74 
MOM. SRCJMOMSERVIC .B32; 


: ' 
91 Pt 
B26 LIBRARY ‘LIBS:MOMLIB.L32'; 
LIBRARY ‘SHRLIBS:NMALIBRY Lge": 
LIBRARY *SHRLIBS:EVCDEF 132°; 
5 1 LIBRARY *SHRLIBS$:NET.L32°; 
i LIBRARY ‘SYSSLIBRARY:L1IB.L32'; 
8 ! 
' EXTERNAL REFERENCES: 
1 $ 
131 
108 $Smom_externals; ! Macro to define common externals 
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mom$ oreneteee”’ 
mom$ 
monSnopsétsubstate, 


uw 


Mur 


ae . i 
aio rece ve_qiow, 
erates oop. 
tacp_qio, 

new ode 

penzees NI addr, 
—— srvopen. 
mom$srvwr 


mom$srvrew + 
mom$srvc lose; 
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Parse the maintenance request (NICE) message’ 
mom$operservice : NOVALUE = 


ZSBTTL ‘mom$operservice 
GLOBAL ROUTI 


'¢ 


+ 
} FUNCTIONAL DESCRIPTION: 


This routine parses the NICE service request message and 
builds the permanent data base record to hold the data. 


IMPLICIT OUTPUTS: 


MOM$SGQ_SRVDATDSC describes the service yest information from the 
volatile data base and from the NICE message. 


i ROUTINE VALUE: 

i COMPLETION CODES: 
' 

s 


Signal errors. 
SIDE EFFECTS: 
The service circuit is open for MOP operations. 


BEGIN 

LOCAL 
mom_a_npatbl, ! Pointer to NPARSE table 
mom_a_routine, ! Address of service routine 
mom_|_msgsize, ! Size of response message 
mom_|_status; ! General purpose status 


' 
: Enable condition handler for cleanup. 


ENABLE mom$servicehandler; 


i Parse the NICE command message up the parameters. This parsing includes 
the function code, the option byte, and the target entity ID. 


mom$parse_nice_entity Q; 
Select parse table according to function code. 
SELECTONEU .mom$gb_function OF 


nma$c_fnc_loa): ! Load 
BEGIN 
mom_a_routine = mom$load; 
mom_a_npatbl = mom$npa_load; 
END; 

Cnma$c_fnc_tril: ! Trigger 
BEGIN 

mom_a_routine = wontertoger: 

mom_a_npatbl = mom$npa_trigger; 
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rservice Parse the maintenance requ 14- 

END; 

Cnma$c fnc.tesd: ! Loop circuit, node, or Line 
mom$test (); 
RETURN; 
END; 

COTHERWISE): ! Invalid function 
BEGIN 


momSerror (nma$c_sts_fun); 
END; 


TES; 


Get the node's service parameters from the volatile data base and 

put them into the Service Data Table. Then get the parameters 

(if any) from_the NICE command message and overwrite the appropriate 
Service Data Table. This is done because the NICE message parameters 
take precedence over the ones in the volatile database. 


nma$nparse (mom$ab_nparse_blk, .mom_a_npatbl); 
Set up the event in case of an aborted service request. 


mom$gw_evt_code = evc$c_nma_abs; ! Event code (aborted service request) 
mom$gb_evt_prsn = evc$c_nma_prsn_loe; ! Circuit open error 


mom$getsrvdata ();! Build data base from volatile 


i Get the service Line timer (used to time all interactions with the 
target node). 


nom$getsrvt imer Q); 


i Dispatch the function to the service routine. 

! (The service routine will signal the status and cleanup will 
be performed by the condition handler.) 

(,mom_a_routine) (mom$ab_cib); 


END; ! End of MOMSOPERSERVICE 


-IDENT \V04-000\ 


-EXTRN MOMSGL_LOGMASK, MOMSGL_SVD_INDEX 
eEXTRN MOMSAB_SERVICE DATA 

-EXTRN MOMSGB_FUNCTION 

~EXTRN MOMSGB_OPTION_BYTE 

-EXTRN MOMSGB_ENTITY_ CODE 

-EXTRN MOMSAB_ENTITY_BUF 

-EXTRN MOMSGQ_ENTITY BUF _DSC 

-EXTRN MOMSGL-SERVICE FLAGS 

-EXTRN MOMSAB_NPARSE _BLK 


=2 


| -TITLE MOMSERVICE Network Regegensnt Maintenance Opera 
rv 


nt Maintenance Operations Servi 1 


Bc 18:06:86 EROM-SRednoMsEAVIC: 032; 


mom$operservice Parse the maintenance requ 1 


leas yy NI CV BUF 


MIT B 


cv. 
CV-MSG_LEN 
MIT_BUF _DSC 


BUF Ai? 
"8 
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MOM$GG_MOP_MSG_DSC 
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.EXTRN MOT SGK -MOPDEVCNT 

TRN MOMSAB-MOPDEVICES 

TRN MOMSNPR” “INIT MOMSNPA_LOAD 

TRN MOMSNPA-MOPINIT 

TRN MOMSNPA~ MOPDUMP 

TRN MOMSNP AS RIGGER 

TRN RENPARSE. MOMSPARSE_NICE_ENTITY 
TRN noms es T, MOMSLO 

TRN MOMSBLD_REPLY, MOMSBLOMOPBOOT 
MOMSBLDROPRDS” MOMSBLDMOPPLT 

TRN MOMSD DEBUG_MSG, MOMSDEBUG_TXT 

TRN OMSERROR MOMSGETSRVDATA 

TRN MOMSGE SR vrs ER 

TRN MOMSLOOPHA DLER 

TRN MOMSINIT Cpe sMOBSMOPSETSUBSTATE 
TRN Hons OPOPEN OPSEND 


CEIVE VE otou 
TRN OMSMOPSNORCYV, ROMSPASS 1 VELOOP 
MOMSN P_Q16 
ROMSSET “ADD 
EXTRN OnSSET NIA MOMSSRVWRITE 
*EXTRN MOMSSRVREGIND® MOMSSRVCLOSE 


-PSECT SCODES,NOWRT,2 
| 


. 
Mmmmmmmmminmmmmmmmmminm 
>< SK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK OK 

“+ 

»D 
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=< 
44 
zw 
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000c 00000 ENTRY MOMSOPERSERVICE, Save R2,R3 : 0149 
6D 0085 CF DE 00002 MOVAL 5$, (FP : 0173 
000000006 EF 00 FB 00007 CALLS #0. MOMSPARSE NICE ENTITY : 0189 
50 000000006 EF 9A OO00E MOVZBL MOMSGB_FUNCTION, : 0193 
OF 50 91 00015 CMPB.sseRO, #15 > 0195 

10 12 00018 BNEQ : 
53 000000006 EF 9E OO01A MOVAB MOMSLOAD. MOM_A_ROUTINE + 0197 
52 000000006 EF 9E 00021 MOVAB MOMSNPA_LOAD, -MOM_A_NPATBL : 0198 
2c 11 00028 BRB : 0193 
11 50 91 0002A 1$ CMPB ss RO, #17 : 0201 

10 12 0002D BNEQ 2$ : 
53 00000000 EF 9E 000¢F MOVAB MOMSTRIGGER, MOM_A_ROUTINS > 0203 
52 000000006 EF 9€ 000 MOVAB MOMSNPA_TRIGGER, MOM_A_NPATBL + 0204 
17 11 0003p BRB 4 : 0193 
12 50 91 O003F 2$ CMPB ss RO, #18 : 0207 

08 12 00042 BNEQ ; 
000000006 EF 00 FB 00044 CALLS #0, MOMSTEST : 0209 
04 00048 RET : 0208 
7E 1 CE O94¢ 3$ MNEGL #1, -(SP) + 0215 

000000006 EF 1 FB 0004F CALLS #1. MOMSERROR : 
2 DD 90096 4$ PUSHL MOM_A_NPATBL > 0226 

000000006 FF 9F 00058 PUSHAB MOMSAB_NPARSE_BLK ; 

000000006 EF ¢ FB 0055 CALLS #2, NMASNPARS F 
006000006 _ EF 07 90 0006 MOVB > MOMSGW_EVT_CODE : 0230 
990000006 EF 4 90 006¢ MOVB ; MOM$GB~EVT~PRSN : 0231 
000000 0G EF 0 FB 000 CALLS 3 MOMSGETSRVDATA > 0233 
000000006 EF 0 FB OOO7A CALLS #0. MOMSGETSRVTIMER > 0238 
000000006 Ff OF 1 PUSHAB > 0244 

63 1 £B 7 CALLS ne (MOM_A_ROUT INE) : 
04 A RET > 0246 
0000 8B 5$: «WORD Save nothing ; 01735 

7E D4 0008D CLRL = = (SP) : 
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YO0s000 mom operservice Parse the ne ntenance requ 30071382 95: Hf - MOM. $Re neasé SE avi 


re ae 
00000000v EF 0 FB CALLS #3, MOMSSERVICEHANDLER 


; Routine Size: 157 bytes, Routine Base: S$CODE$ + 0000 
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; 0 47 1 XSBTTL ‘mom$autoservice Automatic maintenance operations request’ ; 
3 1 rk : GLOBAL ROUTINE mom$autoservice : NOVALUE = ; 
; g 30 1 its ; 
: & 1 1 ! FUNCTIONAL DESCRIPTION: : 
: 5 26 1: his routine performs initialization and dispatching for all : 
: $ 27 } automatic service requests. : 
: 253 0235 | i IMPLICIT OUTPUTS: ; 
; 9 56 1! MOMSGL_SERVICE_FLAGS CMOMS$V_AUTOSERVICE] has a value of TRUE. : 
; 260 0257 1! The Service Data (SVD) table contains the service parameter ; 
s $} 8 28 ! information from the volatile data base and from the MOP message. ; 
; 26 0260 1 } ROUTINE VALUE: 
: 64 0261 1 ! COMPLETION CODES: : 
: 32 ps6¢ : } Signal errors. : 
: 267 $564 1 Ie- ; 
; 268 0265 1 3 
; 269 0266 BEGIN F 
; 270 0267 : 
: 2 0268 LOCAL : 
3 si6 0269 ptr, 3 
s 20 0270 rcv_mop_msg_dsc: VECTOR (2), : 
$ sie b¢7) status; : 
; 276 0978 5 3 
; sir OS ; Enable condition handler for cleanup. : 
: 279 0276 enable mom$autohandler: : 
; see osee mom$ab_cib Ccib$l_chand = 0; ; 
; oes 0379 Set up the event in case of an aborted service request. : 
; 284 0281 mom$gw_evt_code = evc$c_nma_abs; ! Event code (aborted service request) : 
3 +H OSS mom$gb_evt_prsn = evc$Sc_nma_prsn_loe; ! Circuit open error ; 
: 387 osee : Get the service data base. : 
; 389 oso mom$gb_ent ity_code = mom$c_circuit; “ 
: 291 0288 i Get the service Line timer (used to time all interactions with the ; 
; 4 $394 } target node). ; 
; % 0991 mom$getsrvt imer Q; : 
: 296 $598 i Open a MOP channel on the circuit specified in SYSSNET (translated : 
: 44 8 3¢ : into MOM$GQ_ENTITY_BUF_DSC). ° 
F +4 0 38 mom$mopopen (mom$ab_cib Ccib$l_chan]); | : 
; 301 0 98 i MOM is started up for autoservice when this node receives a MOP | : 
3 4 99 ! message from some other node which requests a maintenance operation. | : 
; bi of : Get this MOP message and parse it. : 
; 44 306 mom_get_initial_mop_msg (rcv_mop_msg_dsc); | : 
| 
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04 ! Gor the service data and timer from the volatile data base entry for 
5 ! this device. for NI circuits, this uses the NI address obtained by 
: H MOM_GET_INITIAL_MOP_MSG. 


zo 
me 


SR 


; 10 . 
: 1} 88 mom$getsrvdata ; 
: i§ 10 i Set up Channel Information Block for channel. for NI circuits, this 
; 3146 11 ! sets up the NI protocol for the circuit, and associate it with a specific 
; \? \¢ NI destination. 
: 19 14 mom$init_C1B (mom$ab_cib ! Channel Information Block addr 
; 318 15 -mom b_function, ! Function = load, dump, test 
; S19 1 svd$gk_pcno_pha, ! NI Phycial Address 
; 0 031 svd$gk_pcno_add ! Node address 
; 1 8 i svd$gk_pcno_hwa); ! NI hardware address 
: : 0 20 i For load and dump: 
; 4 0321 ! If the MOP message sent by the target an NI circuit multicast and 
3 See 03 § ! it's not a request for the secondary loader then volunteer assistance. 
3; se t ! The target will perform the load or dump sequence with the first host 
; sf 8 : : to respond to the multicast. 
; $3 $3 6 if .mom$ i soretes.t tags Cpeatu nt veluncoer ing} AND 
3 ; 0 0327 NOT (C.mom$gb_function EQL nma$c_fnc_loa) AND 
ae $+) 0328 (.mom$ab_service_data Csvd$gk_pcno_sty, svd$l_param] EQL 
; 3 0329 nma$c_soft_secl)) THEN 
3 ti hy : mom_volunteer_assistance (rcv_mop_msg_dsc); 
; 335 O33¢ 2 i 
; 336 03 : Dispatch the autoservice function to the correct routine to handle it. 
s Sor 0334 ! (The service routine will signal status and the condition handler will 
; 338 ogee ' take care of cleanup.) 
3; 339 03 $ : 
; 340 b3 
3; 341 8 3 eeLeCToeY -mom$gb_ function OF 
: “8 bees nma$c_fnc_tes]: mom$passiveloop (rcv_mop_msg_dsc); 
: rb b3e8 Cnma$c_fnc_loa]: mom$load (mom$ab_cib); 
; 44 Bsee Cnma$c_fnc_dum]: mom$dump (); 
; 49 0346 COTHERWISE): momSerror (nma$c_sts_fun); 
; 3 O38 TES; 
s d2e 49 1 END; ! End of MOMSAUTOSERVICE 
001¢ 00000 ENTRY MOMSAUTOSERVICE, Save R2,R3,R4 
4 44 44 45 EF 9€ 0000 MOVAB MOMSGB_FUNCTION, R4 
3 000000006 Fe 2 8 a. SAB_CIB, R 
E 8 C 1 SUBL #8, SP 
6D OOAD CF ODE 4 MOVAL 6%, (FP) 
63 D4 1 CLAL MOMSAB_CIB 


; Routine Size: 214 bytes, Routine Base: S$CODE$ + 009D 
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002500 mom$autoservice Automatic maintenance operat io 13-80-1382 9 07:98 MOM. SREIMDASERVIC B300% . (4) 
G EF 7 1A MOVB #7, mouse .£VT cove 5 a 
G EF 4 1 MOVB 4&4, MOMSGB"EVT-PRSN ; 0282 
G EF 8 MOVB #2, MOM$GB_ENTITY_CODE é 86 
G EF FB F CALLS » MOMSGETSRVTIMER $ 91 
DD PUSHL R 3; 0296 

00000000G_ EF 1 FB CALLS #1, MOMSMOPOPEN 3 
; DD F PUSHL SP : 0302 

444 444 EF FB 4) CALLS #1, MOM_GET_INITIAL_MOP_MSG r 
000000G_ EF 0 FB 48 CALLS #0, MOMSGETSRVDATA ; 0308 
444443 F DD 4F SHL #SVDS$GK_PCNO_HWA 3 0314 

44 0G 8F 0D 23 PUSHL #SVD$GK_ ADD Fs 

0000006 F po ’ PUSHL #SVD$GK_PCNO_PHA : 
7E 4 9A 6 MOVZBL $GB_FUNCTION, -(SP) ; 0315 

; 0D 64 PUSHL R 3; 031 

00000000G_ EF F BRe8 CALLS #5, MOMSINIT_CIB 3 
000000006 A 7 Bog bere MOMSGL_SERVICE_FLAGS ; 0326 
OF 4 73 Bee cece MOMSGB_FUNCTION, #15 3; 0327 
00000000" EF i 007A TSTL SOMA SERVICE _BATA*CSVOSER_PCHO_STYS1S/>~; 0328 

9 13 00080 BEQL 3 
9? 0D itt 1$: PUSHL SP 3; 0330 

00000000Vv gE 01 FB seit CALLS #1, MOM_VOLUNTEER_ASSISTANCE é 
g 98 9A 00088 2$: MOVZBL MOM$GB_FUNCTION, R2 ; 0338 
1 2 91 Babar CMPB 2, #18 3; 0340 

oA 12 00091 BNEQ $ F 

E 0D 00093 PUSHL SP 3 

00000000G_ EF 01 f° 49 capes #1, MOMSPASSIVELOOP : 
OF 52 91 0009D 3$: CMPB R2, #15 3: 0342 

OA 12 QOOA0 BNEQ 4$ 3 

53 DD OO0A2 PUSHL R3 3 

00000000G_ EF 01 fe eye 5 a #1, MOMSLOAD : 
10 52 9 SOOAE 4% CMPB R2, #16 3 0344 

08 12 QOOAF BNEQ 5$ 3 

00000000V_ EF 00 4 sed CALLS #0, MOMSDUMP : 
7E 01 CE 00089 5$: MNEGL #1, -(SP) 3 0346 
00000000G_ EF 01 re pes CALLS #1, MOMSERROR : ous 
0006 00C4 6$: «WORD Save nothing ; 0266 

7E D4 C CLRL (SP) 3 

5E bp C PUSHL SP 3 

7E 04 as 0 CA MOVQ 4(AP), -(SP) 5 

00000000v_ EF 03 FB 000C CALLS #3, MOMSAUTOHANDLER : 

04 000D RET ; 

| 
| 
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tag bm a Maintenance Operations Serv’ 18-Sep-1984 95:07:96 ed Bliss 


al_mop_msg Get autoservice t 1 MOM. SRCJMOM 


ZSBTTL ‘mom_get_initial_mop_msg Get autoservice initial MOP message‘ 
ROUTINE mom_get_initial_mop_msg (rcv_mop_msg_dsc) : NOVALUE = 


-Sep-1 


'e4 

' FUNCTIONAL DESCRIPTION: 

: MOM is started up for autoservice when this node receives a MOP 
message from some other node which cequests a maintenance operation. 
This routine is called by MOMSAUTOSERVICE to get the MOP message 
from the device driver and to parse it. 


INPUTS: 
sete tal' > DSC = Address at which to put a descriptor of the 
initial MOP message. 
IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
: COMPLETION CODES: 


BEGIN 


rcv_mop_msg_dsc: REF VECTOR; 


LOCAL 
status 
iosb: $iosb, 
msgsize, 
send_mop_msg dsc: VECTOR (2), 
ni_header : BBLOCK Cnih$k_ni_header_len); 


t 
Initialize the MOP message descriptor. 


rcv_mop_msg_dsc [0] = .mom$gq_mop_rcv_buf_dsc (0); 
revmop_msg_ds¢ ab = ‘mondea7 non rcv but dsc abe 


If the driver is holding a MOP message, issue a read to get it. 
Status = mom$mop_receive_qiow (.mom$ab_cib Ccib$l_chan], 


-fcv_mop_msg_dsc, 
Ai heede?)3 


Lol 
~_ 
o 


Check the NI header to see if the target sent the MOP message to the 

NI multicast address (meaning that any NI node enabled for multicast 

can respond to the message.) If so, MOM must respond by volunteering 
to perform the operation requested. 


F -monSal service. flags Cmom$v_ni_circ] THEN 
BEG! 


; Dump out the NI header to debug logging. 


41 
me RVICE Network Fenegenent Maintenance Operations Servi 1$- 


1 

Sep-1984 02:07: AX-11 Bliss-32 V4.0-74 
mom_get_initial_mop_msg Get autoservice in 730071382 95:07:98 YROM.SRC MOMSEAVIC 03224 
nontdobus_sep (dbg$c_mopio, 

ni_header 


nifi$k_ni_header_len, 
SASCID ("Header’on NI message initiating autoservice')); 
IF “Bi epecder nih$b_multicast] THEN 


mom$gl_service_flags (mom$v_ni_volunteering] = true; 
ponSgl service flags mor*v_ni_multicast] = true; 


ot ot 
—> —) — + a 


ODONAVNE WH" OOOVNOUS Wr 


! Save the source and destination addresses of the MOP message 
which initiated autoservice. 


CHSMOVE (6, ni header Cnih$t_source_ni_addr] 


Ooo 
CLOONO UE O OO 


>) 4) 2 


mom$ab_service_data Csvd$gk-pcno_pha, svd$t_string]); 
mom$ab_service_data Fsva$ok_pcno_pha, svd$b_string_Ten] = 6; 
mom$ab_service_data 


syctok pcno_pha, svd$v_msg_param] = true; 
CHSMOVE (6, ni_header (nih$€_dest_ni_addrJ, 
mom$ab_service_data Csvd$gk_pcno_$da, svd$t_string)); 
mom$ab_service_data ([svd$gk_pcno_$da, svd$b_string_Ten] = 6; 
mom$ab_service_data [svd$gk_pcno_$da, svd$v_msg_param] = true; 


Parse the MOP message that was received. 
mom$ab_nparse_bLk prpast msgcnt = .fcv_mop_msg_dsc £02: 


mom$ab_nparse_blk ([npa$l_msgptr] = .rcv_mop_msg_dsc 
Etats = nma$nparse (momSab_nparse_blk, mom$npa_mopinit); 


at at at at at at at ot at at at at at at at at a a 


ELSE 
' 
! If no MOP message was returned by the driver, send a bad MOP message to 
44 39 ! get the target to retransmit the MOP message which caused me to be 
444 40 ! started up. This code will go away when all the drivers have been 
445 41 ! changed to save that MOP message and return it to MOMSMOPOPEN. 
446 | ! Note that this code path is taken for point-to-point and multipoint 
447 4 ' Lines. 
448 4 : 
449 445 


BEGIN 
Initialize the MOP message descriptor. 


rcv_mop_msg_dsc (0) = .mom$gq_mop_rcv_buf_dsc (0); 
revomop_msg_ds¢ ab = ‘monte mop rcv bul dsc abe 


i Build the bad message (old MOP mode running, new Request dump 
; service) to send. 


mom$bldmoprds (send_mop_msg_dsc); 
mom$gb_evt_prsn = evcSc_nma_prsn_err; ! Receive error reason 


i Send the bad MOP mode running message (used to get the target to 
! retransmit the last thing it sent - this is done for device drivers 
: that Lose the MOP message that causes MOM to get started up.) 


PA-AAQ®’MNMANMAA Iv & & & 


WO OONOULSWN—O0O@ 


OSSSESES. 
eeeeeee 


mom$ab_cib Cetpst retry_cnt] = 5; 
DECR i FROM 5 TO 0 DO 


; 4 
: 4 
: 4 
: 10 4 
; 4 
r 
: 4 
: 4 
: 4 
: 4 
: 0 4 
: 1 4 
; : 4 
; . @ 
; 5 ‘ 
; : : 4 
; 4 

: x a 
i a3 
- be 

: 439 rf 5 

: 6 4 

: 641 

: bb 0438 

; 4 

‘ 

: 439 4e9 

: 45 

: 65 

; 454 

: rer 

: 43? 4 

; re 

a 


7 
11 
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Sa 


; 4 $6 4 BEGIN 

3 4 & status = mom$mopsndrcv (mom$ab_cib, send_mop_msg_dsc, 

; 4 » 188 4 mom$ab_cib, .rcv_mop_msg_dsc, 

; 47 4 55 v-moP_msg.dsc ° 

; 47 & ); ! Don't skip program load requests 
3 rt ? mom$chk_mop_error (.status); 

; are re ? Parse the MOP message that was received. 

5 47 475 & mom$ab_n arse_blk (npa$l_msgcntj = .rcv_mop_msg_dsc (0); 
: o78 74 4 monSab-nperse bik npast asoptr = rev nop mse dsc abe 
; 4 75 4 status = nmaSnparse (momSab_nparse_blk, momSnpa_mopinit); 
: 6 7% % If .status THEN 

; ? 1 f & EXITLOOP; 

; it 6 , END; : 

; 2 5 , If a bad MOP message came from the target, give up. 

: 48 : if NOT .status THEN 

; 488 3 BEGIN 

; 489 5 sonselé_reply (mom$ab_msgblock, msgsize); 

; 490 04 $signal_msg (mom$ab_nice_xmit_buf, .msgsize); 

; red oa END; 

; 49 0489 1 END; ! of mom_get_initial_mop_msg 


-PSECT S$PLITS,NOWRT,NOEXE,2 
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028 ASCII \Nice\ 3 
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65 6D 20 49 4E 20 6€ 6F 20 72 65 64 61 65 48 00000 P.AAB: .A \H i 
oS RS 69 ek é9 fs Ge 8 OS! $3 8 tied B SCII eader on NI message initiating autoserv\ 
76 72 65 73 6F 74 75 61 20 67 99 
00 
90000028 90 LON 
0000000" 00 -ADDRESS P.AAB : 
-PSECT $CODES,NOWRT,2 
OFFC 00000 MOM_GET_INITIAL_MOP_MSG: 
.WORD “Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 : 0351 
58 90000006 EF 9E 0000 MOVAB MOMSNPA’ MOP! R : 
A 000000006 EF 9E 000 MOVAB MOMSGL_SERVICE FLAGS, R10 F 
9 6 9006 EF 9E 19 MOVAB MOMSAB-NPARSE BLK+4, R9 ; 
8 6 cf 9 1 MOV SAB-CIB, RB : 
3 4 cc $ 3 aovt acy MOP MSG_DSC, R6 > 0386 
66 000000006 EF » 5 MOVG =~ MOMSGQ_MOP_RCV_BUF_DSC, (R6) ; 
4 AE OF 4 PUSHAB ‘NI_HEADER : 0391 
3 BD ‘ PUSH f $AB_CIB : 3 
000000006 EF p F 3 CALLS ie MOMSMOP_RECEIVE_Q10W : 
7 D A MOVL RO, STATUS ; 
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mom_get_initial_mop_msg 


00000000* 


EF 


000000006 


000000006 


000000006 


000000006 


00000000v 


000000006 


000000006 
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Get autoservice 


Cs 
00000000" EF 
E 

oc OA 
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04 AE 

AO ‘ 

06 
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01 
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28 

FC 
000000006 _ EF 
14 AG 

5 

5 

E 
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i 

24 it 

i 

FC ; 
000000006 4 
6€ 

SoHE" 


-Sep-1 


f ts 
; i 
oF 4C 

4f 


£8 00088 
i 066 18: 
90 00069 
88 00070 
28 00077 
90 00080 
88 00087 
7D OOO8E 2$: 


o 
J 
ooo 

oo 
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AX-11 Bliss-32 V4.0-74 Pa 8 

382 96: 97: 98 MOM. SRCJMOMSE ae C.B32; ‘¢ ” (38 
BLBC STATUS 3$ ; 
BBC MOMSGL_SERVICE_FLAGS, 2$ : 
PUSHAB 4 "p80 : 
PUSHL § #14 , 
PUSHAB NI_HEADER ; 
PUSH g : 
CALLS #4, stomspes _MSG ; 
BLBC NI SHE ; 
81SB #180. wPontct aSERVICE FLAGS ; 
MOVC #6. ON HEADER+ SAB. SERVICE_DATAt= —; 
opser'e RB Phkel Stoo : 
mOVvB Hasse AB SERVICE. > DATAS<SVDSGK -PCNO_PHA®=; 
B1SB2 fl, < <<HOMSAB_ SERVICE_DATA*<SVDSGK_PCNO_PHA®=; 
mMOVC3 «#6, NI MEAD << MSAB SERVICE_DATA+= : 
<SVDSGR BCNON Rael >+9> : 
MOVB #0, <<pOMSAS Seavice ” DATA*<SVDSGK _PCNO_S$DA®-; 
B1SB2 HI, <<HOMSAB_ SERVICE_DATA+<SVD$GK_PCNO_SDA®-; 
va (R6) , MOMSAB_NPARSE_BLK+4 : 
PUSHL : 
PUSH niAg NPARSE pbk ; 
CALLS : 
MOVL : 
BRB ; 
Bes Hasty tC. 0 7 
CALLS #1, MOMSELDMOPRDS : 
MOVB #1, MOMSGB_EVT_PRSN ; 
MOVL #5, MOMSAB_C18718 3 
MOVL #5, I 3 
CLRL 3=_ = ¢ §P) : 
PUSHL R6 3 
PUSHL R6 3 
PUSHL R8 3 
PUSHAB SEND MOP_MSG_DSC : 
PUSHL 3 
CALLS #6, HOMSHOPSNORCV : 
MOVL RO, STAT : 
PUSHL STATUS ; 
CALLS #1, MOMSCHK_MOP_ERROR : 
vQ (Rb ), MOMSAB_NPARSE_BLK+4 3 
PUSHL 3 
PUS ah NPARSE pBtk : 
CALLS 3 
MOVL ; 
BLBS Hie F 
SOBGEQ : 
BLBS bis. 6s : 
PUSHL ; 
CALS me “POASELD.. LREPLY 3 
PUSHAB NICE_XMIT_BUF : 
PUSHL naneag 3 


| FRRA 
o-oo 
w NONS | 


SS 


MBuSBRUICE —atwork anagenent maintenance erations servi Hecdezc 128s QB:07:06  YABs!LABhigacdR Yé-052 a 


000000006 00 03 F 1 CALLS #3, $ 3 
be 883 8 6$: ker spent: ; 0489 
; Routine Size: 289 bytes, Routine Base: SCODES + 0173 
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gon, voluntee?_ ass stance Volunteer Assistance 1 30071382 95300 :98 MOM. SRC mOMSERVIC 83064 


1 ZSBITL ‘mom_volunteer_assistance Volunteer Assistance’ 
ROUTINE mom_volunteer_assistance (rcv_mop_msg_dsc) : NOVALUE = 


1o4 
' FUNCTIONAL DESCRIPTION: 
: there is a node on the NI whose host is down and it needs a 


eee 


down Line load or an up Line yO it will broadcast a request 
for to the NI multicast address for the dump or load. If th 
request is not for a secondary loader (in which case MOM responds 
with a secondary loader), MOM sends a volunteer assistance to the 
target node. The coreee will chose the first host to volunteer to 


rs 


continue the load or 


i 

i 

i 

i 

i 

; ump sequence with. If a response is 
; received to the volunteer assistance sent here, then this node 
: was chosen by the target. Parse the message and return to 
} perform the operation. 

i INPUTS: 

ne 

i IMPLICIT OUTPUTS: 

} Writes an event indicating that assistance was volunteered. 
i 

in 


ROUTINE VALUE: 
COMPLETION CODES: 


LOCAL 
status, 
msgsize; 


' 
Initialize the MOP message descriptor. 


rcv_mop_msg_dsc £0} = .mom$gq_mop_rcv_buf_dsc (0); 

rcv_mop_msg_dsc 1] = .mom$gq_mop_rcv_buf_dsc (1); 

i Sent assistance volunteer to node requesting assistance. Send it once if 

! the correct destination NI address is available. Otherwise, try once to the 
: target's HIORD address and once to its hardware address. 


iF (NOT .mom$ab_cib Cc ib$v_target_addr_fixed]) THEN 
gnonsedcib Ccib$l_retry_cnt] = 


ELS 
mom$ab_cib Ccib$l_retry_cnt] = 1; 
status = mom$Smopsndrcv (mom$ab_cib, UPLIT LONG (1 
UPLIT BYTE (mop$_fct_asv)), 
mom$ab_cib, .rcv_mop_msg_dsc, 
rcv_mop_msg_dsc 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
rcv_mop_msg_dsc : REF VECTOR; 
mom$k_skip_multicasts); ! Ignore received multicasts. 


Dt et at et a ee hb ob ep aad 


ate ee t=) 
QOULW—OCVOOnou USIZSSeNons unr SOwMNOnr wma ODe We wr S2LESF 


PPP MAMA) 


mom$chk_mop_error (.status); 


M11 
SERVICE Network Management Maintenance Operations Servi 16-Sep-1984 02:07: AX-11 Bliss<-32 V4.0-74 P “ 
yoasb00 aon, voluntes? essistence Volunteer Assistance 127868-1 382 95:07:98 MOM. SRC MEMSERVIC 03224 - (6) 


mom$ab_cib Ccib$l_retry_cnt) = 5; 
| Parse the MOP message that was received. 
mom$ab_nparse_bLk npa$l_msgcnt) = .rcv_mop_msg_dsc fl: 


mom$ab_nparse_blk (npa$l_msgptr] = .rcv_mop_msg_dsc 
status a rmasiparse (eonSeb-nparsebik. sonSnpe-mopinits; 


47 ! 
¢ 4 ! in case a response to the volunteer was received, restore the retry count 
4 ; or normal operations. 
4 
; If a bad MOP message came from the target, give up. 
if NOT .status THEN 

BEGIN 


genseld_reply (mom$ab_msgblock, msgsize); 


SN NSN SIN NS SIO OO 


; 
5 
ie $s ignal_msg mom$ab_nice_xmit_buf, .msgsize); 
bee mom$gl_service_flags Cmom$v_ni_volunteering] = false; 
5 B208 i Don't Log any events for a volunteer assistance that gets no response. 
5 056 ! This is because every node on the NI that's enabled for multicast would 
beey : Log this event for every multicast request. That's generating mucho 
bart not very interesting data. 
0878 RETURN .status; 
0574 1 END; ! of mom_volunteer_assistance 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


03 00034 P.AAD: .BYTE 3 3 

te -BLKB 
00000001 00038 P.AAC: .LONG 1 : 
00000000" 0003¢ -ADDRESS P.AAD 3 


-PSECT SCODES,NOWRT,2 
001C 00000 tenement” aes rhig y 


. WO ave R2,R3,R4 : 0491 
000000006 FF 99002 HOVA moMSaB_C1B+18, R4 : 
04 ac b 0 MOVL §_RCV_MOP_MSG_DSC, R2 + 0529 
000000006 EF 1 MOVO § MOMSGQ_MOP_RCV_BUF_DSC, (R2) ; 
FE AG E 1 BLBS SAB~C1B716,-1$ : 0536 
64 : og 18 MOVL , , MOMSAB_C16+18 : 0537 
$4 1 00 p 1$: MOVL #1, MOMSAB_C1B+18 : 0539 
E 1 CE 2$: MNEGL #1. -(SP) > 0543 
: DD é PUSHL R : 
BD PUSHL R : 
Fe AG OF A PUSHAB MOMSAB_CIB > 0540 
00000000" EF 9F D PUSHAB P.AAC : 


j 
| 
| 
= 


N " 

SERVICE Network Management Maintenance Operations Servi Sep-1 Ax-11 8 Unt -74 Page 20 
y002500 mom wyolunteer, assistance Volunteer has tetence 12: Hatt 4 96: gr: 98 nO SREIMDA favie o3509 . (33 

EE AG +4 PUSHAB 3 
000000006 Aa fe CALLS RORSHOPSNORCY 3; 0543 

5 D MOVE ie : 
bD 4 PUSHL 3; 0546 

00000000Vv 4H 4 4 CALLS i. hon um CHK ree et ea : 
4 4 MOVL 3; 0551 
000000006 EF D MOVG (R83), MOO x5! RPARSE _BLK+4 + 0555 
880808006 F 9F 000 PUSHAB ncasien MOPIRIT 3; 0557 

G F F 0 PUSHAB $AB APARSE BLK é 

000000006 4 F OSF CALLS aang e 3 

D MOVL ; 
4 E BLB é $361 
E gp C PUSHL : 0563 

000000006 FE F of PUSHAB no on, MSGBLOCK : 

00000000G_ EF 2 FB 000 CALLS MOMSBLD_REPLY 3 
6E 4 Bare PUSHL hs 3; 0564 

00000006 Ff F 43 PUSHAB m3ecns NICE_XMIT_BUF 3 

2070000 F OD ore PUSHL 401 i. s 

000000006 03 FB 00089 CALLS $SIGNAL 3 
000000006: EF 80 8F 8A 00090 3$ BICB2 HS, TpoNseL _SERVICE_FLAGS > 0566 
4 00098 RET 3 0574 


; Routine Size: 153 bytes, Routine Base: S$CODES + 0294 
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: 581 932? 1 ZSBTTL ‘mom$dump Yet ine a 

; 68 Bee ! GLOBAL ROUTINE mom$dump : NOVALUE = 

: 4 b2f8 1 !44 

: 28? B22? 1 FUNCTIONAL DESCRIPTION: 

3 26e p28) ! } This routine performs the upline system dump operation. 

; 589 $383 1 ! IMPLICIT evi 

: 239 bepe : } MOMSAB_CIB = Q10 channel information block for MOP messages. 

3 236 286 1 ! ROUTINE VALUE: 

; 5 1 ! COMPLETION CODES: 

> 594 588 1! ; 

3 SPP 0589 1! Signal errors. 

3 e388 0590 1! 

: 597 0591 1 !-- 

; 598 O236 1 

3; 3 0595 2 BEGIN 

; 600 0594 2 

: 601 0595 2 MACRO 

; 602 0596 2 ' MOP Request Memory Dump msg 
; 6035 0597 2 rmd_b_fct = 0,0,8,0% ! Function code 

: 604 0598 2 rmd_|_memaddr = 1,0,32,0%, ! Memory address — 

> 605 0599 2 rmd_w_numlocs = 5,0,16,0%, ! Number of Locations 

: 606 0600 § ! MOP Memory Dump Data message 
: 607 0601 mdd_b_fct = 0,0,8,0% ' Function code 

; 608 0602 2 mdd_l_memaddr = 1,0,32,0%, ! Memory address 

; 609 0603 2 mdd_t_data = 5,0,0,0%; ! Data 

3; 610 0604 § 

3; 611 0605 LITERAL 

; 612 0606 2 mdd_c_datsiz = 256, ! MOP Memory Dump data size 

; 613 0607 2 mdd_c_hdrsiz = 5 ! MOP Memory Dump header size 
; 614 0608 2 recsiz = 5/2; ! Record buffer size 

; 613 0609 2 

; 616 0610 2 LOCAL 

; 617 0611 2 len,adr, ! Temp length and address 

: 618 bel§ 2 retries, ! Retries remaining count 

; 619 0613 2 memsiz, ! Memory size 

: 620 0614 memadr, ! Memory address 

3 Oe 0615 curmemadr, ' Current memory address 

; 622 0616 sc : VECTOR $1. ! File name descriptor 

; 623 0617 2 rmdbuf : BBLOCK (7), ' Request Memory Dump message 
; ose p68 5 rmddsc : VECTOR (2), ' Request Memory Dump desc 

3; 625 61 mddlen, ! Memory Dump data Length 
3; 626 post mddbuf : BBLOCK Cmdd_c_hdrsiz . ! Memory Dump Data message 

3; 627 0621 + mdd_c_datsiz], 

; 628 06 § mdddsc : VECTOR (2), ! Memory Dump Data descriptor 
; 629 06 recidx, ' Record buffer index 

; 630 86 4 recbuf : VECTOR bcgesta.BYTE3, ' Record buffer : 

: o3! 36 5 recdsc : VECTOR (2), ! Record buffer descriptor 

: £33 des? 

: 634 628 msgdsc : VECTOR 

; 635 0629 skip_msg_dsc_addr, ! Address of descriptor of 

3; 636 0630 ! MOP message to skip over. 

3; 637 0631 msgsize, 


snddsc : VECTOR FSi. 
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Network Management Maintenance Operations Servi 1§-56 -1984 02:07: AX-11 Bliss-32 V4.0-742 
mom$dump Uptine dump 12288-1938 ° : 1:98 MOM. SRCJMOMSERVIC.B32;1 
$ § , ‘Status; 
634 i Set the circuit substate and log the automatic service event for 
° 5 } upline dump. 
3 5 mom$gw_evt_code = evc$c_nma_als; 
0638 monsp0_evt _pser = evc$c_nma_pser_dum; 
see mom$log_event (0, 0); 
0641 mom$mopsetsubstate (nma$c_linss_adu, 
pone -mom$ab_cib Ccib$l_chan]);! -AUTODUMPING 
0664 Get the output file name from the data base. 
0646 2 fildsc (1) = 0; 
sat 4 F (pouranbOrviee Sete Csvd$gk_pcno_dum, svd$b_string_len] LEQ 0 THEN 
0649 mom$error (nma$c_sts_pms, nma$c dum) ; 
[A Rak pec hpmaaperte: reso 
b63¢ ELSE 
bee Pe tae 0) $ab ice_data Csvd$gk d d$b_string_len] 
= .mom$ab_service_data [sv _pcno_dum, svd$b_string_len]; 
Be82 3 Taseee 1] = mom$ab_Service_data [svd$gk.peno, dum. avdst. String! 
0657 2! x 
bees } Get the memory size of the system being dumped 
0660 memsiz = .mom$ab_service_data [svd$gk_pcno_dct, svd$l a3 
0661 IF .memsiz LEQ -T THEN ~ Dieiat tn thts ae oeetth 
066 BEGIN 
066 mom$error (nma$c_sts_pms, nma$c_pcno_dct); 
bees 2 OENDS 
0666 . 
0667 ! 
pees § Get the starting memory address of the system being dumped 
0670 memadr = .mom$ab service_data Csvd$gk_pcno_dad, svd$l_param]; 
0671 IF .memadr LEQ -T THEN 
bes memadr = 0; 
0674 ! 
15 Open the output file. 
bere status = mom$srvopen (fildsc, nma$c_opn_ac_rw); 
0678 IF NOT .status THEN 
680 BEGIN 
tt mom$ab_msgblock Cmsb$w_detail] = nma$c_fopdtl_dfl; 
6 ¢ mom$bld_reply (mom$ab_msgblock, msgsize); 
68 pe rane mee (mom$ab_nice_xmit_buf, .msgsize); 
684 RETURN; 
o86 ; END; 
$87 : Output the trace message. 


re 


SERVICE see she Mana — a Operations Servi 1-48 -1984 02:07:06 AX=-11 Bliss-32 V4.0-74 Page 23 MO} 
voas 500 mom$dump Uptine 4 14- Sep=1 3B 9 a3 MOM. SREIMOM SERVIC 8324 " 3 vO! 
; $93 $ 8 mom$debug_txt (dbg$c_srvtrc, SASCID ('Dumping')); 
; 697 691 2 rmdbuf rnd -b. fet) = mop$_fct_rmd; | 3 | 
: 698 692 3 rndbuf cs] = midd C datsiz; | 3] 
3 $99 69 rmddsc ie =AALCOEAT ION rndBut); e 
3 £0 eae rmddsc = rmdbuf; $ | 
; 70 069 mdddsc £0 = ZALLOCATION(mddbuf) ; 3 | 
; £7 069 mdddsc (ij = mddbuf; é | 
° 704 0698 : o 4 
: oy? 544 } Dump the remote system's memory and retry if it fails. - | 
; +0 70) skip_msg_dsc_addr = mom$gq_mop_msg_dsc; e | 
; 708 44 curmemadr = .memadr; | 
; 709 070 recidx = 0; 4 
; 710 0704 2 retries = 2; : | 
s ii 0705 : | 
3 at 0706 WHILE .curmemadr LSSU .memsiz s } 
; fr 0707 AND .retries GTRU 0 é | 
; 714 0708 DO ; 

3 15 0709 BEGIN | 
: 716 0710 5} 
3 fae 0711 Send ‘Request mans | + A message and receive a response message. : | 
; 118 org ! Skip over retransmitted Request Memory Dump messages from the target & 
; ahs O73 | the first time through. : | 
: 721 0715 emdbut Crmd_l_memaddr) = .curmemadr; 3 | 
; fee 0716 STATUS = mom$mopsndrcv (mom$ab_cib, rmddsc, : | 
Be. 0717 mom$ab_cib, mdddsc, : | 
; ise 0718 mddlen : ; ; | 
3; es 0719 "skip_ms9_dsc_addr); ! Skip duplicate dump requests. 3 | 
; 16 ore ; skip_msg_dsc_addr = 0; : } 
; 728 O25§ 3 If the response message is a ‘Memory Dump Data’ and the memory 3 | 
3 16? Ors? ; , address is the one requested, copy the data to the record buffer. : 
: «731 0725 ir -Statu 3 | 
; 0726 4 AND (umddlen EQU mdd_c_hdrsi 3] 
; oO 0727 4 AND (.mddbuf mdd_b_fct] cal as a $_fct_mdd) : 
3 734 0728 3 AND (, zaedouy mdd_|—"memaddr PE ae THEN : 

3 39 1044 4 BEGIN : | 
; 736 0730 4 CHSMOVE (.mddlen = mdd.chdrsiz, mddbuf (mdd_t_datal, : | 
: 737 0731 4 recbuf C.recidx]) 3 

; 738 O76 4 recidx = (.recidx + mdd_c y wore MOD recsiz; : | 
; i 7? & : | 
3; 740 Ore 4 ! Aaa : 2 | 
; res Ore 2 , If the record buffer was just filled, write it to the file. 3 | 
3; «74 $739 4 IF .recidx EQL 0 THEN 3 | 
3 744 t38 4 mom$srvwrite (recbuf, recsiz); = 
3 «745 739 4 . 3 | 
3; 746 740 4 curmemadr = .curmemadr + mdd_c_datsiz; : 

3 «747 741 4 END | 3 

3: 748 ee 3 ELSE 3 

3; 749 745 4 BEGIN : 

: 750 744 4 ' 3 

s 31 0745 4 ! The response message isn't correct, so tell the dumper to : 

| 
} 


epeseny ice Network ayo on Pen Maintenance Operations Servi 18-56 p= 300-1384 8 0 4 if 7306 AX-11 B a 


mom$dump Upline 14-Sep-1984 MOM. SRCJMOMSERV 


3; 7£ 746 4 ! start dump again by sending a bad (opcode only) ‘Request Dum 
; f § 8 2 } Service® foP message. . : , . “ 
: 755 749 4 aentlenn rds (snddsc); 

; f S O78 ? msgdsc [1] = .mom$gq_ mop. rev_buf_dsc (1); 

: 758 gf § 4 status = mom$mopsndrcv ee. cid. snddsc, 

: 759 753 4 bagib + mom$gq_mop_rcv_buf_dsc, 
; 760 Bree 4 gts 

: 761 755 4 2d ! Don't skip program load requests 
; 76 o728 4 mom$chk_mop_error (.statu 

3s 76 Boe 4 nonteh _nparse_blk tnpast 85 at = .msgdsc [0 : 

: 764 756 4 mom$ab_nparse_blk Cnpa$i"msgptr -msgdsc (1 

: 765 0759 4 IF NOT nma$nparse (mom$ab_nparse_ bli. mom$npa_ mopinit) THEN 
: 766 0760 2 BEGIN 

: 767 0761 mom$error (nma$c_sts_lpr); 

: 768 3574 5 RETURN; 

HOES pe 

: 771 0765 4 i Rewind the output file and reset the memory address for 
ie 0766 4 ! retrying 

3; 77 0767 4 ! 

; 774 0768 4 mom$srvrewind (); 

; 775 0769 4 recidx = 0; 

: 776 0770 4 curmemadr = .memadr; 

s Far 0771 4 retries = .retries - 1; 

: 778 Ore 3 END; 

ie. eine 

: 78 0775 ; Send a Dump Complete MOP message. 

; At, 14a status = mom$mopsend (mom$ab_cib, 

; 785 0778 UPLIT BYTE (mop$_fct_dem)); 

: 187 O78 ; Close the dump file. 

; has ares mom$srvc Lose Q; 

: 791 0785 i qf oy y 9, tell the remote system to re-load itself by sending an 
3 ie. ores : ‘Enter MOP Mode’ message. 

: 79% 788 2 IF .mom$gl_service_flags [mom$v_autoservice] THEN 

3; 795 789 mom$trigger (); 

: a 790 4 

: a dA 149 Return status. 

: 799 79 mom$ab msgblock msbS| _flags) = 0; 

3 ge 794 IF .retries — 

: a ag: nS mom$ab s oantnek msb$b_code] = nma$c_sts_suc 

; 508 +99 mom$ab_m msgbLock Cmsb$b co = nma$c_sts_lpr; 

; 804 798 mom$bid -reply (mom$ab msgblock, PR nt 

; 805 799 $s ignal “msg (mom$ab_nice_xmit -buf, .msgsize): 

3 800 END; ! End of mom$dump 
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67 6€ 69 70 6D 75 44 0047 QP. AAF : 
£00008 7 Bee P.AAE: 
000° Bos 4 
1 086 P.AAG: 
OFFC 00000 
5E FCB4 cf 9E 0000 
00000000G_ EF 03 90 0000 
00000000G_ EF ol 90 Boone 
7C 0001 
00000000v_ EF 02 FB 00017 
000000006 EF DD BRO TE 
8 DD 00024 
00000000G_ EF 02 FB 00026 
FC AD 04 00020 
50 00000000" EF 9A 000 
06 14 rt dA 
7E 82 8F 9A 00039 
19 11 00030 
F8 AD 50 DO OO03F 1$ 
FC AD 00000000" EF 9E 00043 
6E 00000000* EF DO 00048 
OF 18 00052 
7E 88 8F 9A 00054 
7E 1D CE 00058 2$: 
00000000G_ EF FB 00058 
04 pO 88s 
58 00000000* EF 00 00065 3$ 
9 18 Q006A 
01 DD DoeE 4% 
8 AD 3 00070 
000000006 gf § F 8 7? 
4‘ Dd 7A 
OA AE 8 7 
000000006 EF o¢ 
01 1 
00000000" EF re A 5$: 
00000000G_ EF $ F 9 
4 AD 4 9 
F AD 0100 F 8B 
EB AD 7 3 A 
EC AD FO AD 9E QOOA 
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ASCII 
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: MOM. SRCIJMOMS zavie -B32; 
SPLITS,NOWRT ,NOEXE,2 
\Dumping\ 


LONG 
“ADDRESS P.AAF 
“BYTE. 1 


SCODES ,NOWRT ,2 


MOMSDUMP, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,-; 


344 (SP 
ee mOMsGuS EVT_ CODE 
a MOMSGB-EVT~PSER 


(§P) 
#2, nares os. EVENT 


im rere 


<HORGAB SERVICE _DATA+<SVD$GK_PCNO_DUM*137>- 


1$ 
Hi30, 
RO, 


-(SP) 


>+9> 

>+9> 

#136, -(SP) 
Hi “antichess 


>+9 

4$ 
MEMADR 
#1 
FILDSC 

. . MOMSSRVOPEN 


STAT! 
STATUS, 5$ 
We, MOMSAB_MSGBLOCK+8 


P AAE 

Hf MOMSDEBUG_TXT 

#4. RMDBUF 

#256, RMDBUF +5 
MDDSC 

RMOBUF, RMDDSC+4 


DSC 
<HOMSAB SERVICE _DATA*<SVDS$GK_PCNO_DUM*137>-; 
<<MORSAB, SERVICE, DATA+<SVD$GK_PCNO_DCT*137>- 


rar ft palate DATA+<SVD$GK_PCNO_DAD*137>-; 


De eee 


< 
— = 


Hr vit fal 
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000000006 FF 


mom$d ump Up 

BEB see 
f 000008006 f 
59 ; 

6E 
00 H 
59 
9 
Fl AD 37 
B 
08 AE 
FED CD 
00000 006 EF 
F AD 
000000006 EF 
000000006 EF : 

A 
5B 
4D SA 
05 04 Ag 
4 
OE FEEO CD 
40 
57 FEET gp 
9 
50 04 AE 05 
34 AES6 FEES CD 50 
7E 00000100 iy 56 1 
56 BE 00000200 f 
OF 
7E 0200 8F 
28 OA 
000000006 Ef 0 
7 0100 ¢ 
6 
14 AE 
000000006 EF 01 
10 AE 000000006 cf 
10 AE 
000000006 _ EF 
000000006 EF 
4 AE 
000000006 EF 
000000006 ef ; 
’ A 
0000000v EF 1 
000006 AE 
; 
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6$: 


7$: 
8$: 


oO 
bad 


10$: 


Be 18:06:98 


MOVZWL 
MOVAB 


AX-11 Bliss-32 V4.0-74 
MOM. SRC JMOMSE avi C.832; 


#261 


DDSC 
MDDBUF , " ADDDSC +4 
P_MSG _DSC, SKIP_MSG_DSC_ADDR 
RECIDK” CURMEMADR 


RIES 
CGAMERADRS MEMSI2 
$ 

RETRIES 
7 


CURMEMADR proaur +1 
skIP Ms $6_6SC 


is. “AORSHOPswoRcv 

sxie- MSG_DSC_ADDR 
TOs, 108 - 

SODLEN, y 

MDDBUF, #14 

yas CURMEMADR 


a5, RO 
RO, RDDBUF SS RE CBUF CRECIDX] 


a3 $42" fSpys, RECIDX, RECIDX 


fbx 
i 
i a smart 
e587), CURMEMADR 
SNDDSC 
rie MOMSBLDMOPR 


DS 
MORSGO_ MOP_RCV_BUF _DSC+4, MSGDSC+4 


MSGDSC 
MOMS$GO_MOP_RCV_BUF _DSC 
MOMSAB~CIB 


~(SP) 


SNDDSC 

MOMSAB_CIB 

#6, MOMSMOPSNDRCV 

RO, STATUS 
TUS 
MOMSCHK_MOP_ERROR 


nséosc j TOMSAB APARSE. BLK+4 
pate saPARee pbk 


Page 
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000000006 
000000006 


000000006 
000000006 
00000000v 


000000006 
000000006 


000000006 


000000006 


Routine Base: 


00000000° 
000000006 


o7 000000006 
000000006 


8 
000000006 


oun 
se” 


ee 
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SCODES + 032D 
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MOM. SRCJMOM 


=(SP) 
, MOMSERROR 


#0, MOMSSRVREWIND 
RECIDX 
MEMADR, CURMEMADR 
RETRIE 


$AB_CIB 
RORSROPSEND 
SSRVCLOSE 
OMSGL_SERVICE FLAGS, 
#0, MOMSTRIGGER 
MOMSAB_MSGBLOCK 
RETRIES 
MOMSAB_MSGBLOCK+4 


ale oo -MSGBLOCK+4 
. MORSBLD REP 


PLY 
Ae Mice “XMIT _BUF 


Lt 


Pete Se Se Be Se Se Se Se Fe Ge Ge Ge Se Ge Ge Fe Ge Ge Ge Ge Ge Ge Se Ge Ge Fe Se Se Se 
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mom$trigger Trigger the target bootstrap 14-Sep-19 4 95:07:98 EmOM. SRC MOMSEAVIC 03244 a Be 


—s 


1 ZSBTTL ‘mom$trigger Trigger the target bootstrap’ 
GLOBAL ROUTINE mom$trigger = 


'ee 

! FUNCTIONAL DESCRIPTION: 

: his routine performs the trigger bootstrap function. It is called 
during trigger, and dump operations. 


SRLSRREN 


| 
| 
| 
. 
None | 
| 
| 


eyo pcno_hwa); 
IF -monSab_ function QC nmaSc_fnc_tri THEN 
BEG! 


SEES 


Set the circuit substate to -TRIGGERING. 


mom$mopsetsubstate (nma$c_linss_tri, 
-mom$ab_trigger_cib Ccib$l_chan]); 


SF 


PORPOPONOPOPORO III I IO OPOPPOPOPOPOPUPUPUPURIPUPONOPOTUIIIN tt tt 


END; 
q 
Build the trigger (old ‘enter MOP mode’, new ‘boct') message. 
mom$bldmopboot (snddsc); 


mom$debug_txt (goers srytre. 
SASCIB ("Triggering remote bootstrap')); 


! 
! 
! 
5 : INPUTS 
11 i 
\§ ' IMPLICIT egg # 
1 ; MOMSAB_CIB = Channel Information for Q10 channel for MOP messages. 
S 13 : MOMSGB_FUNCTION = maintenance function currently being performed. 
OB1g i ROUTINE VALUE: 
Ba) : COMPLETION CODES: 
bB19 i Signal errors. 
0820 ! 
0821 !== 
08 § 
08 BEGIN 
0824 
0825 LOCAL 
08 § snddsc : VECTOR (2), 
08 status; 
0828 
0829 ! 
ttt} Open an 1/0 channel for the circuit service operation. 
ett mom$mopopen (mom$ab_trigger_cib Ccib$l_chan]); 
0834 i Set up the Channel Information Block for the channel. for NI circuits, this 
0835 ! sets up the NI protocol for the circuit, and determines the NI destination 
+44 address that the target DEUNA is currently responding to. 
0838 mom$init_CIB (mom$ab_trigger_cib, | 
083 a$c_fnc_tr 
0840 svd$gk_pcho_pha, 
841 svd$gk_pcno_add 
Hk 
4 
e 
0 
4 
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mom$trigger Trieoer the target bootstrap 14-30-1986 93: 97: 98 nom SRE IRON nonS stavy t:832; 


5 


! Send the trigger message for a rigors or dump operation, and don't 
: wait for a response message from the target. 


status = mom$mopsend (mom$ab_ shaase fi cib, 
“snddsc 3s: 


i If the target's correct physicel address is not available, send the 
trigger to the target's hardware address as well. 


if a -mom$ab_trigger_cib Ccib$v_target_addr_fixed] THEN 


mom oot _ni_addr (mom$ab stg igser cib); 
status = mom$mopsend \acase trigger. cib, 


7 -S 
7 eee Faas. 
74 END; 
Le mom$c hk _mop_error (.status); 
087 If it’s a trigger operation, return a NICE response to NCP (trigger is 
O87 never an autoservice operation), and quit. 
880 if -mom$gb_function EQL nma$c_fnc_tri THEN 
ete mom$error (nma$c_sts_suc); 
8 ¢ RETURN .status; 
088 END; ! End of mom$trigger 
-PSECT SPLITS,NOWRT,NOEXE,2 
6F 6D 65 ue 20 4 —E 69 72 65 67 69 7 4 O00 P.AAIL: .ASCII \Tri i te bootstrap\ 
61 of 73 74 #6F O6F a4 e, és ry, 00060 spect tiny 1 lesan: — 
0001 bose P.AAH: .LONG 27 
$008 0000" 00070 ADDRESS P.AAI 
-PSECT S$CODES,NOWRT,2 
"§ 00 eENTRY MOMSTRIGGER, Save R2,R3,R4,R5 
; 000. MOVAB MOMSMOPS 5 


MOMSGB_FUNCTION, R4 
MOV SAB-TRIGGER_ CIB, R3 
SUBL ‘ . SP 
#1, MOMSMOPOPEN 
PUSHL  #SVD$GK_PCNO_HWA 
PUSHL  #SVD$GK~PCNO~ADD 
PUSHL #SVDSGK= PCNO_PHA 


UN TT WOOT 
o 
o 


CALLS 8, MOMSINIT CIB 
CMPB MOMSGB_FUNCTION, #17 


BN 
PUSHL SAB_TRIGGER_CIB 
pyran. iccen 


000000006 ff 


BEF PANN OO 


oon Ou WODouwommm 
Poe 
no n” 
_~/ ao 
NVYVWOONUIMOWO SP NoSxs 
o 
> 
r 
a 
nw 


| 
| 
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000000006 EF FB 0004 CALLS #2, MOMSHOPSETSUBSTATE ; 
000000006 EF pe er TS. monsexonorecot .— 
00000000" EF 3 } PUSHAB BAA : 85 

000000006 EF ; FB 00061 CALLS #3, MOMSDEBUG. TXT : 
DD PUSHL SN + 0863 
08 AE DD G006A PUSHL  SNDDSC+4 ; 0862 
DD PUSHL : 0861 

$5 FB O006E CALLS #3, MOMSMOPSEND : 

2 D HOVE. RO. STATUS ; 
1 10 AS E8 0007 SAB_TRIGGER.C1B+16, 28 : 0868 

000000006 EF 31 PB B00 CALLS #7, MOMSSET_NI_ADDR = 

6E DD G08 PUSHL  SNODSC -™ + 0873 
08 AE DD 000 PUSHL — SNDDSC+4 + 0872 
DD 00087 PUSHL : 0871 

$5 FB 00089 CALLS MOMSMOPSEND : 

3 D C mov. RO’ STATUS : 
00000000V EF Bt teen STATUS MOP_ERROR heats 
ff 64 91 00098 CHES HOASGB GB. FUNCTION? #17 : 0880 
By be boose PUSHL #1 : 0881 

000000006 EF 01 FB 0009 CALLS #1, MOMSERROR : 
0 2 DO O00A6 3$: MOVE” «STATUS, RO : 088 
04 000A9 RET : 088 


; Routine Size: 170 bytes, Routine Base: SCODES + 0561 
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98 


SNA SSE LE TE ONS SE IESE 


MIPIPOTURD 22 2 


MIMIPO 


ODONOVLSWN —O OONOAUS WhO 
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mom$servicehandler Condition handler 14-Sep-1 
1 ZSBTTL ‘mom$servicehandler Condition handler’ 
5 ! GLOBAL ROUTINE mom$servicehandler (signal_vec, mechanism) = 
1 !e¢ 
! } FUNCTIONAL DESCRIPTION: 
1/ This routine is a condition handler that performs cleanup 
1 6 at — end of maintenance operations. The MOP I/0 channel is 
38 : : deassigned. 
34 FORMAL PARAMETERS: 
36 ii SIGNAL_VEC Pointer to the signal vector. 
838 : ! MECHANISM Pointer to the mechanism array. 
1 i-- 
He BEGIN 
030 MAP 
90 signal_vec : REF BBLOCK, ! Signal vector argument 
84: mechanism : REF BBLOCK; ! Mechanism vector array pointer 
208 LOCAL 
90 buf_adr, ! Temporary buffer address 
0908 buf_len, ! Temporary buffer length 
0909 sts_code : BBLOCK (4); ! Status code 
Be 
O9t@ Deassign the MOP channels. 
0944 iF .mom$ab_cib Ccib$l_chan] NEQ 0 THEN 
0915 SDASSGR (CHAN = .mom$ab_cib Ccib$l_chan]); 
0916 IF .mom$ab_tri ger.cib CcibSt_chan) NEG 9 THEN 
oat SDASSGA (C = .mom$ab_trigger_cib Ccib$l_chan]); 
3484 sts_code = .signal_vec Cchf$l_sig_name]; ! Get signal status code 
0934 i If the facility code matches the one for MOM, then MOM signalled the 
9 § ! error with it’s own arenes ine arguments. Use these arguments to 
> Z : send the response message back to NML. 
925 2 iF .sts_code (sts$v_fac_no] EQLU mom$k_fac_code THEN 
; § BEGIN 
3 4 ; Two arguments are required for MOM conditions. 
09 0 if “signal _vec Cchf$l_sig_args] NEQU 2+3 THEN 
; 1 RETURN ss$_resignal 
9 ? BEGIN 
935 4 buf_adr = .signal_vec Cent st sig.argti 
3 ‘ bufilen = .(signal_vec Cchf$t_s §_argii+4); 
9 3 ? For load operations, log the final status event. 
940 4 iF .mom$gb_function EQL nma$c_fnc_loa THEN 


M12 
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: 350 : mom$log_event (.buf_len, .buf_adr); 
; i Be 2 If a message is specified (length not equal 0) then send it. 
: 9 : 945 4 if .buf_len NEQU 0 THEN 
; 9546 § 4 mom$send (.buf_adr, .buf_len); ! Send status message 
Be bc 
: 9 § vk 4 i Unwind back to the caller of the routine that set up the 
3 228 50 4 i condition hanlder and continue from there. This gets rid of 
: 95 B23 2 the MOM specific arguments on the stack. 
: $e 8 fw 0s 
368 985 ? oe ss$_continue 
: 965 339 END 
Be fan 
; oe8 aed This condition was not signalled by MOM so let it go by. : 
3 970 096¢ RETURN ss$_resignal ; 
; 972 0964 1 END; ! End of MOMSSERVICEHANDLER 
.EXTRN SYSSDASSGN, SYSSUNWIND 3 
001¢ 00000 .ENTRY MOMSSERVICEHANDLER, Save R2,R3.R4 : 0885 : 
54 000000006 00 9 493 MOVAB SYSSDASSGN, R4 3 
50 000000006 EF D 3099 MOVL MOMSAB_CIB, RO 3: 0914 
> F 0010 EQL 1$ 3 
0 DD 00012 PUSHL RO 3 0915 
64 01 F 0014 CALLS #1, SYSSDASSGN F 
50 000000006 F DO 00017 1$: MOVL OMSAB_TRIGGER_CIB, RO 3; 0916 
5 1 93 BEQL 2 3 
0 odd 000 PUSHL 0 ; 0917 
64 01 F 00 § CALLS #1 sysepassee é 
29 Se AE BR itss 28: ROVE SEAL EC. RO. ale 
00000207 + 8F 51 0c 10 € 88 D CMPZV s #16, n> f0 ODE. #519 ; 0925 
2 1 BNEQ 5$ 3 
05 § p : CMPL (RO), #5 ; 0930 
3 B BNEQ 1 3 
3 AQ 00 0003D MOVL (RO), BUF_ADR 3; 0935 
2 O¢ A po 4} MOVL 12(R ROS, BUF_LEN : 0936 
OF 00000000G_ EF 1 45 CMPB MOMSGB “FUNCTION, #15 3; 0940 
9 12 Q004C BNEQ $ é 
BB 0004 PUSHR #*M<R2,R3> 3; 0941 
00000000V_ EF ; F " CALLS #2 MOMSLOG_ EVENT é 
D 3$ TSTL BUF_LEN > 0945 
1 9 BEQL 3 
00 8 B PUSHL BUF -tEN 3; 0946 
000000006 EF etdtd CALLS ie. “ROMSSEND ; 
of 7C 86 4$: CLRO > 0953 


voc-000 | —snombservicensndter Condition hendler > ser" hata 73:20:93 EROn:SRednonseRvie B30: 1 a 


00000 F ALLS #2, SYSSUNWIND : 

wool eed. ie met: B gos 
918 8F 73 5$: MOVZWL #2328, RO ; 

- . i 07 RET + 0964 


3; Routine Size: 121 bytes, Routine Base: SCODE$S + 0608 
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yoesb00 mom$autohandler fondition handler for eutosery 12-Sep-19 4 
0 
I 


18: 


4:38 ENON: SREINORS 
C 


974 965 1 XSBITL 'mom$autohandler Condition handler for autoservice operations’ 
975 is GLOBAL ROUTINE momSautohandler (SIGNAL.VEC, MECHANISM) SS 
977 968 '++ 
ars 82 , FUNCTIONAL DESCRIPTION: 
980 0971 i This routine is a condition handler thac perferms cleanup 
981 8376 ! at the end of maintenance operations initiated oy the target 
one 097 : (autoservice). The final status is logged and the direct I/0 
98 0974 : channel is deassigned. 
$85 §3h FORMAL PARAMETERS 
TOCA i & Seppe enemas ica aes ti 

! ointer to the signal vector. 
988 0979 : MECHANTSM Pointer to the nethenion array. 
989 0980 : 
990 0981 leo 
991 098 BEGIN 
99 098 
394 $988 oo ignal REF BBLOCK ! Signal 

signal_vec : P ' Signal vector argument 
995 0986 aechenten : REF BBLOCK; ! et hanise vector array pointer 
996 0987 
997 0988 LOCAL 
998 0989 msgadr, 
300 $991 ae ghee BBLOCK [4] < de 
sts : 3 ! 

sts_code = .signal_ve : 
et 4454 a gnal_vec (Cc _Sig_name 
004 0995 ! 
005 0996 ! If the error was generated by MOM (as opposed to being an SS$_ error) 


log an event. 
IF .sts_code Csts$v_fac_no] EQLU mom$k_fac_code THEN 
BEGIN 


msgadr = .signal_vec Cchf$l_sig_argl]; 
msgsize = = (eignt_yec Cchf$l. sig, argil+4); 


oS 
wu 


; Log the event. 

mom$log_event (.msgsize, .msgadr); 

i Unwind back to the caller of the routine that set up the 

! condition hanlder and continue from there. This gets rid of 
the MOM specific arguments on the stack. 


SUNWIND (); 
RETURN ss$_continue 
END; 


Reet te eet ot atatata 


SCOBDNOULSWN SO OONOUS WN Oo 0On 


' 
Deassign the MOP channel. 


IF .mom$ab_cib Ccib$l_chan] NEQ Q THEN 
SDASSGN (CHAN = .mom$ab_cib Ccib$l_chan]); 
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MOMSERVICE Network Management Maintenance Operations Servi 16-50 $ep-1984 02:07: AX-11 Bliss-32 V4.0-742 Page 5 | A 
V005 500 mom$autohandler Condition handler for autosery 1 =300n 138% ? 20:98 MOM. SREIMOMSERVIC 03045 . (133 V04 
; 1933 1988 ; RETURN ss$_resignal; ! Always resignal error : 
: 10 7 END; ! End of MOMSAUTOHANDLER é 
0000 00000 ENTRY SIGHAL.VEC. RO. Save nothing ‘ 
29 7 A 4 0002 MOVL SIGNA ‘ 
1 4 A D 0006 MOVL 4(R0) pa 388 : 
00000207 =s: BF 51 0c 1 f B88 CMPZV #16, # sts. CODE. #519 3 
H3 0 2 BNEQ 1$ 
2} 08 A D 001 MOVL 8(RO), MSGADR 
0 0c Ad DO 00019 MOVL  12(ROS, MSGSIZE 
03 ®86B 0001D PUSHR #°M<RO, R1> 1007 
00000000V_ EF 02 FB OOO1F CALLS #2 HOMSLOG EVENT 
7E 7C 00026 CLRO 20s = (§P 1013 
000000006 00 02 FB 00028 CALLS #2, SYSSUNWIND 
50 01 v0 pots MOVL #1, RO 1014 
04 000 ¢ RET 
50 00000000G_ EF 0 00033 1$ MOVL MOMS$AB_CIB, RO 1019 
09 13 OOO3A BEQL 2$ 
50 DD 0003C PUSHL a 1020 
000000006 00 01 FB OO03E CALL SYSSDASSGN 
50 0918 8F 3C 00045 2$ MOVZWL 42528" 1022 
04 O004A RET 1024 


; Routine Size: 75 bytes, Routine Base: $CODE$S + 0684 


Be Se Be Se Be Be Be Be Be Be Be Se Se Be BeBe Se Ses 
=— ©& O&O 
oo oOo ovo 
—— & Ss 


dD 13 
MOMSERVICE Network Management Maintenance Operations Servi 16-Sep-1984 9 07:96 AX-11 Oi ieee ae V4.0-742 Page 36 
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1035 5 ZSBTTL ‘mom$log_event Log the network management layer event’ 

GLOBAL ROUTINE mom$log_event (msgsize, msgadr) : NOVALUE = 

le4 

FUNCTIONAL DESCRIPTION: 

1 Log the network management event. 
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FORMAL PARAMETERS: 


MSGSIZE Size of response message (if necessary). 
MSGADR Address of response message (if necessary). 


IMPLICIT INPUTS: 


MOMSGW_EVT_CODE 
MOMSGB_EVT_PSER 
MOM$GB_EVT_POPR 
MOM$GB_EVT_PRSN 


. 
' 
. 
' 
. 
' 
* 
' 
. 
' 
. 
! 
. 
! 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 


@-- 
me 
at 
i ool 
2 
Ee SS 


FRESERRARARARRAARE EEE RE RE RE RRO 
WN] SO OONOUSWN “ODO ODNAULS WOO 


RoPoPonononOnononononononononononononononononononononononononononononony 3 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 LOCAL 

1 status, 

1 evtbuf : BBLOCK Cmom$k_qio_buf_len], 

1 evtdsc : VECTOR (2), 

1 nfb : BBLOCK ECnfb$k_length], 

1 nfbdsc : VECTOR (2), 

1 svd_index, 

1065 ptr, 

Agee node_cmu; ! Coded multiple field count for target node ID 
1068 } 

44 44 : Initialize the event buffer pointer leaving room for the byte count word. 
1071 61 ptr = evtbuf + 2; 

Ore $6 : ed 

I o7 } Get the current system time and put it in the buffer. 

1075 065 SGETTIM (timadr = .ptr); 

1076 066 ptr = .ptr + 8; 

1077 067 : ; 

1078 068 ! Put the event code in the buffer. 

1079 069 : 

1080 070 (.ptr)<0,16> = .mom$gw_evt_code; 
1081 071 ptr = .ptr + 2; 
1Oee Ore : 

Ie? 38 ; Add the source circuit id. 
1085 075 CHSWCHAR_A (evc$c_src_cir, ptr); ! Add source type code (Always CIRCUIT) 
1086 B76 CHSWCHAR_A (.mom$ab_service_data Csvd$gk_pcno_sli, svd$b_string_lenJ, ptr); 
1087 07 ptr = CHSCOPY (.mom$ab_service_data svdSgk eno. sii, svdSb_ string. ten > 
1088 878 mom$ab_Service_data Csvd$gk_pcno_Sli, svd$t_StringJ, 

1089 7 0 
1090 080 16, 

1091 081 ptr); 


23 


v4. 
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mom$log_event Log the network management Layer 14-Sep-1984 
! 
Add the event-specific information. 


SELECTU -mom$gw_evt_code OF 
SET 


oO 
Wroe 


oO 
SESS 


; Add service code. 


oooo 


(ptr) <0, 16> = evc$c_nma_pser; 


tr = .ptr ; 
PHSWCHAR.A praasa pty cod or 1, ptr); 
> tun (.mom$gb_evt_pser, ptr); 


| 
2 
| 
5 
9 
0 fevc$c_nma_als): 
: BEGIN 
4 
g ; Add operation code. 
Cevc$c raapolds 
(.ptr)<0,16> = evc$c_nma_popr; 
pte = ptr + 2; 
HSWCHAR_A pomate pty ced or 1, ptr); 
“tai (.mom$gb_evt_popr, ptr); 
Add reason code. 
Cevc$c nma_absJ: 
BEGIN 
(.ptr)<0,16> = evc$c_nma_prsn; 
pte = sptr + 2; 
HSWCHAR_A prmaSa_pty cod OR 1, ptr); 
ta (.mom$gb_evt_prsn, ptr); 
| 
| 
| 
| 
| 


Add status message. 
Cevc$c nma_abs,evc$c_nma_als]: 
(.ptr)<0,16> = evc$c_nma_psts; 
pte = ptr + 2; 
HSWCHAR_A (nma$m_pty_cmu OR 3, ptr); 
CHSWCHAR_A (neete_ot cod OR 1, ptr); 
IF .msgstze GTR 0 
CHSWCHAR_A (.(.msgadr)<0,8>, ptr) 
CHSWCHAR_A (0, ptr); 
CHSWCHAR_A (nma$m_pty cod OK 2, ptr); 
IF .msgstze GIR OTHER , 
(.ptr)<0,16> = .(.msgadr + 1)<0,16> 


(.ptr)<0,16> = -1; 
ptr = .ptr + 2; 


BIA RR OOO NONE WN OOD NAME WW OOD UR RR AW OO Doe 


Be Se Se Se Se Se Be Se Se Ge Se Se Fe Se Se Ge Se Ge Fe Se Se Se Ge Ge Fe Ge Se Ge Se Ge Fe Ge Se Ge Se Ge Se Se Se Se Se Ss Se Se Se Se Se Se Se Se Se Se Se Se estes 
me ed ed od dd dd dd ed 3 dd dt 


eee SY 
ee ce ee ce ee me me ce ee ee a ee ee ee ee ed ed od od od od wd dD 


AAAI AAI IIPS RIPUNINININPINPINID 9 9 OOO SS SS“ CDOOOOOCOCOCOO 


CDNA UES WN OO OODNAU EWN $ O ODNOAUES WN “OC OONOUSWWAN—O 


HANA AANIAI NIAAA AAAI NIIP PIPPIN WA AIM POPPIN WNW 


BRL PEW 
DONOUSWwM—OoO 
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CHSWCHAR_A (nma$m_pty_asc, ptr); 
IF “megs Tze GTR o-HEN 


$3 


reba 


=74 Pp 
3554 age 78 


CHSWCHAR_A (.(.msgadr + 3)<0,8>, ptr); 
ptr = CHSMOVE Clas adr + 9,8 8°. 
emsgadr + 4, 
ptr); 
END 


CHSWCHAR_A (0, ptr); 
END; 
} If it's in the Service Data Table (SVD) add the target's node ID. 
tevc$c nma_abs, evc$c_nma_alsj: 


BEGIN 
node_cmu = 0; 
IF sree Sp st Csvd$gk_pcno_add, svd$l_param] NEQ 0 THEN 
-cMu = I; 
IF .mom$ab_service data Csvd$gk_pcno_nna, svd$b_string_len] GTR 0 THEN 
node_cmu = .node_cmu + 1; 
IF “node cau GTR 0 TREN 


(.ptr)<0,16> = evc$c_nma_pnod; 

ptr = sptr + 2; 

HSWCHAR_A (nma$m_pty_cmu OR .node_cmu, ptr); 

IF monsen service_date Csvd$gk_pcno_add, svd$l_param] NEQ 0 THEN 


CHSWCHAR_A (2, ptr); 

(.ptr)<0716> = .mom$ab_service_data Csvd$gk_pcno_add, 
svd$l_paramJ; 

tr = .ptr + 2; 


IF _mombab_service_data Csvd$gk_pcno_nna, svd$b_string_len] GTR 0 


BEGIN 
CHSWCHAR_A 5 Tia 
ptr); 
CHSWCHAR_A (.mon$ab_service_data Csvd$gk_pcno_nna, svd$b_string_len], 


tr e 
ptr = cHSMovE (.mom$ab_service_data Csvd$gk peno_nna. 
svd$b_string_len], 
mom$ab_service_data Csvd$gk_pctno_nna 
svdSt_string), 


Ne tt eters PIR BP SR Ry RT Fey ttt a a ay YP | 


225233 
SREaN2 SSS AR POOH NO URN —ODo0 on 


ptr); 
END; . 
END; 
END; 


Add file and software type to load events. 
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Cevc$c_nma_als): 
BEGIN 


ee ee a ee a ee ee ee a a a ed ed ed dd 
ooooo DODO O OOOO OO 09 09 W009 09 09 09 SII NINN NINN NINA AA AAPA AA NIM 
a ee ee ee ea a a a a ee ee ee ec cee ee ce ec ee ee ee ee ed edd 
eh ee a cd ed a cd ea ca ed ed ce el cd a ce a a a a cn a ce ce a ee ed ee ce ee ct ee ed ee ee ee co ce ee ee ee eee ee ee ee ed ee 


PAINE DDT TTT & BB TUT BB WWIII NII AIP PIII BB BPP PP 


IF -monSab_evt _pser EQL evc$c_nma_pser_loa THEN 
BEG! 
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! 

File ID of load file. 

(.ptr)<0,16> = evc$Sc_nma_pfil; 

ptr = ptr + 25 

ELECTO E .mom$ab_service_data [svd$gk_pcno_sty, svd$l_param] OF 
rmagensottotert3: svd_index = svd$gk_pcno_slo; 


bb 2 te 


o VEWN—O 


M—OOCONO VUE AN “OO ONO UNE WN $0 OONO UNE WN "CO OOVNOUS WN -O 0 


nma$c_soft_terlJj: svd_index = svd$gk_pcno_tlo; 
nma$c_soft_osys 


TES 
CHSWCHAR_A (nma$m_pty_asc, 


| 
| 
| 
: Svd_index = svd$gk_pcno_loa; 
ris 
nce (.mom$ab_service_data [C.svd_index, svd$b_string_len], 
r): 
ptr = cuSmove (.mom$ab_service_data C.svd_index, ayesy string. lond, 
sondeb service date -Svd_index, svd$t_stringJ, 
ptr); | 
' 
| 


Software type of load file. 


POPRINONIPURD 3 ee 


(.ptr)<0,16> = evcSc_nma_psty; 


tr = .ptr + 2; 
CHSWCHAR.A prmaSe pty cdl. ptr); 
CHSWCHAR_A ye ee -service_data (svd$gk_pcno_sty, svd$l_param], 
ptr); 
END; 


WN —OOCONOVESWN —“OOONOULWNO 


Mn rrrororrorors 


TES; 
' 
Set up the descriptor of the event buffer. 


a ak kk a ak ak a nd td dd ak a a = a as 8s — a 4 2 4 
i en ee ee ee ee en ee ee ee ee ee ee ee ee ee ee ee 


Pe tt ot a et ot tt et or er er eo oo oo ot or ot ot a? ot or ot at ot at ot ot ot ot nt ot ot et 


Be Se Se Se Se Se Se Ge Se Se Be Ge Ge Se Ge Se Ge Fe Ge Fe Ge Se Fe Ge Fe Ge oe Se Se Ge Ge Se Se Se Se Se Ge Se Se Se Ge SH Se Se Se Se Pete Ge Oe Ge Ge Ge Ge Ge Geese 


$3 5 i If the circuit is an Ethernet, add the target system's Ethernet address 

$$ § : to the event. 
238 2 Cevc$c_nma_abs,evc$c_nma_als]: 
$20 2 BEGIN : 

40 5 IF -pon$al service_flags Cmom$v_ni_circ] THEN 

rt BEG! 

cs : Add parameter ID = source NI address 

45 (.ptr)<0,16> = evc$c_nma_psni; 
$78 pte = ptr + 23 ; 

vt HSWCHAR_A (rma$c_pty_hi. ! It's a hex image field 

r . 
3 CHSWCHAR_A cnonsk_niaddr_tength, | 
r); 
51 | 
2g ; Add the Ethernet address. 
54 ptr = CHSMOVE (mom$k_ni_addr Length. : | 
3? mondab_servite date Csvd$gk_pcno_pha, svd$t_string], | 
-ptrd; | 

iy ew” | 
59 \ 

60 

61 

62 


tt a a — 2 a a a a tt 
ts nt 8 wt ks ts 2d ts 2 a ss ts 
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3 evtdsc (0 -ptr - outbul 
4 Cevtbuf) < 163" pagvtase 62; 

5 evtdsc 1J = evtbuf; 
$ Set up the NFB. 
§ CHSF UL (0, nt $k_length, nfb); 

60 nfb fet] ="nfb$c (ogevent; 

61 aibese” “= nfb$k_Llength; 

6¢ nfbdsc 1) = nfb; 

64 Log the event to NETACP. 

66 mom$netacp_qio (nfbdsc, evtdsc, 0, 0); 

68 ; Dump out the event message. 

20 mom$debug_msg (dbgsc_e ev nts. 

Le -evtdsc (0J, 

fF $ASCID. ("Event logged’)); 

75 1 END; ! End of MOMSLOG_EVENT 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


64 65 67 67 6F 6C 20 74 6E 65 76 45 00074 P.AAK: .ASCII \Event logged\ 
Q000000C 00080 P.AAJ: .L 1 
00000000" 00084 «ADDRESS P.AAK 


~-EXTRN SYSSGETTIM 
-PSECT S$CODES,NOWRT,2 


03FC 00000 .ENTRY MOMSLOG_EVENT, Save R2,R3,R4,R5,R6,R7,RB,R9 ; 
59 000000006 EF 9E 0000 MOVAB MOMSGB_EVT PSER, R9 
58 000000006 EF 9 000 MOVAB SAB SSERVICE _DATA+8, RB 
3E FEO CE 9E 00010 MOVAB -544(SP), 
5 a 8 e 0015 OV EVIBUE +2. aTR 
5 0019 PUSHL PTR 
000000006 01 iB tt CALLS #1, SYSSGETTIM 
8 § 9 ADDL2 48. 
000000006 EF A MOV ZBL cree terhy EVT_CODE, R7 
7 09 c MOVW 
03 O0¢F F MOVB = #3, (PT 
00000000* EF 00032 MOVB Chon As, SERVICE -DATA*<SVDSGK_PCNO_SL1*137>~; 
50 00000000" EF 9A 00039 MOVZBL ssa “SERVICE _DATA*<SVD$GK_PCNO SLI*137>~3 
00 00000000« EF 50 2C 00040 MOVCS _SERVICE_DATA*+<SVDSGK_PCNO “SLie-: 
49 Rohossoe #0; #16, (PTR) 
03 91 0004A CMPB R , 8 
9 12 0004D BNEQ 
3 BA AF CLRW 8©=s- (PTR) + 
83 81 BF 90 00051 MOVB #=127, (PIR)+ 


Sete Se Se Se ee Ge 


1026 


a. ae ee 
$3 SF SF 


1077 
1081 
1090 


1092 
1094 


13 
SERVICE Network Management Maintenance Operations Servi tb-5e -1984 02:07: AX-11 Bliss-32 V4.0-74 
yOe= 500 mom$log_event Log the network menagenent layer 1 30071382 95:07:98 {mOM.SRC MOMSERVIC.B32; ae 


3 MOVB $GB_EVT_PSER, (PTR)+ : 
Be 3 3 A 1$: CMPB ay $e . : 
5 fOvW «#2. (PTRDS : 

81 £0 MOVB f={27 (PTR)+ : 
000000006 EF 64 MOVE G6_EVT_POPR, (PTR)+ : 

7 2s: CM R?7, # : 

Fi $ BNEQ : 

1 8F 7 move =f PrePTRD ; 

= + o 

000000006 £ 7 MOVE honbcd_ EVI -PRSN, (PTR)+ : 

7 ? i: 3$: CPB R7, # : 

07 } 91 90 3 CMPB R7, #7 : 
4E 1 6 BNEQ 10 : 

83 81€30001 8F DO 00088 4$ MOVL #-2117926911, (PTR)+ : 
1 06 AC DO 0008F MOVL MSGSIZE, R1 : 
06 1 0093 BLE : 

63 08 8 90 0009 MOVB  § @MSGADR, (PTR) : 
11 00099 BRB $ : 

$ 94 00098 5$: CLRB =: (PTR) : 

6 0090 6$: INCL PTR : 

83 82 BF 90 0009F MOVB #126, (PTR)+ : 
02 1 D1 O00A3 CMPL RI, #2 : 
OA 15 0006 BLEQ : 

50 08 AC DO 000A8 MOVL § MSGADR, RO : 
63 01 Aad BO 000AC MOVW 1(RO), (PTR) : 
03 11 00080 BRB BS ; 

$3 1 ag Bees 7$: MNEGW #1, (PTR) : 
5 2 CO 000B5 8$: ADDL2 #2. PTR : 
83 40 a 90 00088 MOVE #64, (PTR)+ ; 
04 } D1 000BC CMPL =aR'1, #4 : 
13 15 000BF BLEQ 9% ; 

50 08 ac pO 000C1 MOVL § MSGADR, RO F 
8 03 ad 90 900¢3 MOVB (RO), (PTR) + : 
1 03 ad 9A 00009 mOVZBL (RO). R1 : 
6% 04 AO 51 28 000CD vC3_-R1, 4¢RO), (PTR) : 
02 11 000D2 BRB 10$ ; 

8 94 00004 9$: CLRB = (PTR) + : 

03 91 9006 10S: CMPB RT, #3 ; 
95 13 0000 BEQL «ssa ; 

07 91 000DB CMPB RT, #7 ; 
4¢ 12 000D BNEQ 15§ F 

50 04 9 £0 11$ CLRL §NODE_CMU ; 

52 00000000* EF DO O00E MOVL <<MORSAB_SERVICE _DATA*<SVDSGK_PCNO_ADD#*137>~i 
54 D4 O00E9 CLRL = RS : 

: b3 OEB TSTL : 

13 000ED BEQL 128 ; 

4 6 OEF INCL ; 

50 1 p OF} MOVL #1, NODE_CMU : 
1 00000000" EF 9A OOOF4 12$:  MOVZBL <<MOMSAB"SERVICE_DATA*<SVDSGK_PCNO_NNA*137>~; 
5 D4 000FB CLRL sR ; 

1 D3 FD TSTL = RV : 

4 FF BLEG 13% ; 

5 Dé 00101 INCL = R5 ; 


—s ab at es — 


— a — ee 


Network Mana 
mom$log_even 


vibe 9 fa 


83 


63 


18 AE 


00 


63 00000000+ 


01 As 


OF 000000006 
63 00000000* 


ment Maintenance Operations 
Log the network management 


Loaf 


F 

4 

| ; 
40 F 

1 

EF 1 
03 7 
‘ 


iH 


3 0 
6 00000000" EF 


99 
50 000000006 
01 26 
50 000000006 if 
02 8 
30 enaeet ' : 
50 00000089 gate 
ee 
43 51 
8 08 
es 81 5 
; 
oi eB 
Gras 
3 06200009 BF 
EF 6 
20 =A 

Yo on B 
BE 2 A 
08 AE 

) 

oan 


20 «AE 


ervi 1 
ayer 1 


as 


oooooo 


Ooooeceo CcOooooo 


09 --90-0—-0-""0—" 90-00 NOUOMNDOMwa—o 
Coooooooo 


tao ts Ot = = — 9 — 9 — — 9 9 ss 6d 1s 2 as ss st A tt > 2 as a a a a a 


SMOCNowe—ne SSLLASLESSNATSFSSeSTSSSLN SAUSRA RLS Saeo=s 


oo 
RAMOS OMOwM WOW COOOC@rFrOfLoon——Oon "OW  COOMYUN—— DWOOCWOOCOO 


SSSSSSSSSSSSSSSS3E 
SOOOOSOSOSOSSSSS OOOCCOCOCCOOOCOCCoOoOoCoO 


OnNOCSCO WWOTDOFO woMmM—o-ooOomnrc 


tt 


Sep-1984 o 96:07 


-Sep-1984 


13$: 


148: 


15$: 


16$: 


17$: 


18$: 


19$: 


20$: 


218: 


06 AX-11 Bliss-32 V4.0-74 
MOM. SRC JMOMSER v C.B32; 

NODE_CMU 

J jpa MU 


#192. PNODE.cMU, (PTR)+ 


<<HOMSAB SERVICE _DATA+<SVD$GK_PCNO_NNA®t-; 


Uns (PTR) 


19 
MOMSGB_EVT_PSER 
i 


168 
#SVDSGK_PCNO_SLO, SVD_INDEX 
R ral 
#SVDSGK_PCNO_TLO, SVD_ INDEX 
R6, #2 
#SVDSGK_PCNO_LOA, SVD_INDEX 

#64, (PTR)+ 
#1 $35, | RO 
MOMSAB_SERVICE_DATA+8 R01, (PTR)+ 
MOMSAB~ SERVICE DATA+8LRO 
R1, MOMSAB_SERVICE_DATA+9CROJ, (PTR) 
v8 UOTRI 
#-127, (PTR)+ 
RG. (PTR) + 
R7, #3 
20$ 
R7, #7 
i$ 

$6L Se SE RVICE FLAGS, 21$ 

#1627608 
a6 <HORSAR SERVICE _DATA+<SVD$GK_PCNO_PHA®-: 

coe TR) 
tyr go’? 
RO, PTR, EVTDSC 
EviDSC, VTBUF 
EVTB UF EV IDSC +s 

(SP), #0, #16, NFB 

#28, NFB 
#16. NFBDSC 
NFB NFBDSC+4 


PUSHAB EVTDSC 


(PTR)+ 
<<RORSAR_ SERVICE _DATA+<SVD$GK_PCNO_STY*137>-= 


; 1205 


OOOO 


tS ss 


rrr 


Oo 
2 ONN—ODS 


MR 


$3 


R rk a nt Maintenance Operations feryt 6. de0-1984 - AL \isa. 4 Pa 
yoosbo setlosovent’ Los the network Sonessment { ayer | 20-1382 95:97 £48 MOM. ba} noaseavie: §33 ; 9 443 
0c ar oF 193 PUSHAB NFBDSC é 
00000000G_ EF 04 F 1 CALLS #4, MOMSNETACP_QI0 : 
00000009" EF 9 D PUSHAB P. Aas + 1273 
C AE OD OOIE PUSHL EVTDSC : 1272 
5 DD At PUSHL a : 1271 
DD OOTE PUSHL # 3; 1270 
00000000G_ EF 4 FB pies CALLS #4, MOMSDEBUG_MSG : 
04 OO1F RET 1275 


; Routine Size: 499 bytes, Routine Base: SCODES + O6CF 


13 
SERVICE Network Management Maintenance Operations Servi 16-Sep-1984 02:07: AX-11 Bliss-32 V4.0-74 P . 
v0e=000 monschk mop. error Get volatile byte parameter 1 7300-1 38e 95:07:98 EROM. SRC MOMSEAVIC 03244 29 13) 


ZSBTTL ‘mom$chk mop error Get volatile byte peraneter’ 
th : LUE = 


3 7 1 1 
: ! } 7 ! GLOBAL ROUTINE fiom$thk_mop_error (code) : NOV 
74 1579 | 146 
: ; : , 1 : FUNCTIONAL DESCRIPTION: 
3 : : § : Check the status of a MOP function. 
:} i i 
; 1286 2 BEGIN 
:1 1288 2 LOCAL 
: : } 3 msgsize; 
71 1291 2 IF NOT .code THEN 
3 3 1 4 BEGIN 
3 3 129 sonseld_repty (mom$ab_msgblock, msgsize); 
31 1294 Ssignal_msg (mom$ab_nice_xmit_buf, .msgsize); 
: 2S Ble 
3:1 1297 1 END; ! End of mom$chk_mop_error 
0000 99000 .ENTRY MOMSCHK_MOP_ERROR, Save nothing : 1277 
5E 04 3 Boos SUBL2 #4, 3 
24 04 AC €8 0000 LBS CODE, 1$ : 1291 
5E OD 49494 PUSHL P : 1293 
000000006 #4 oF 8 008 PUSHAB MOMSAB_MSGBLOCK 3 
00000000G_ EF 2 FB 00011 CALLS #2, MOMSBLD_REPLY 3 
6E DD 00018 PUSHL MS 3 1294 
ggogooogg EF 9F 0001A PUSHAB MOMSAB NICE, xMIT_BUF : 
02070000 F 0D 00020 PUSHL #34013T84 3 
000000006 00 03 FB 00026 CALLS #3, LIBSSIGNAL 3 
04 00020 1$: RET : 1297 


; Routine Size: 46 bytes, Routine Base: S$CODE$ + 08C2 


Mm 13 


SERVICE ae ork Management Maintenance Operations Servi 16-Sep-1984 02:07: AX-11 iss-3 Page 45 
yO0=000 mom$chk_mop_ orrer Get volatite byte parameter 1%: 300-1382 95:07:96 Fade SREINSASERVIC 16324 . a} 
; 131 1 1 END 
ie ey 
; 13512 1 0 ELUDOM 

-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
: $CODES 2288 NOVEC.NOURT, RD. EXE.NOSHR, LCL, REL, CON .NOPIC ALIGN(2) 
; SeALITS 136 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


: woencece Symbols ececeecn Pages Processing 
8 File Total Loaded Percent Mapped Time 
: _$255$pu : -OBJ 1MOML 1813351 194 49 25 21 00:00.1 
: 7$255$DUA :ESHRLIB NMALIBRY L 231 887 22 47 00:00.2 
: 7$255$DUA28:CSHR"IBJEVCDEF L321 313 16 15 00:00.1 
: 7$255$p SDUAZB: SHRLIB NET L383 1279 3 0 63 00:00.3 
: 7$255$puUA28:CSYSLIBILIB.L32:1 18619 11 0 1000 00:06.5 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:MOMSERVIC/OBJ=0BJ$:MOMSERVIC MSRC$:MOMSERVIC/UPDATE=(ENHS :MOMSERVIC) 
; Size: 2288 code + 136 data bytes 

Run Time 245.4 

Sleseed Tine: 1:26.8 


Lines/CPU Mia: 171 

Lexemes/CPU-Min: 1339 
"Y Used: 287 rages 

Compilation Complete 


A590 AH-BT13A-SE EQUIPMENT CORPORA 
Sw VAX/VMS V4.0 : NTIAL AND PROPRIET 


TION | 
ARY 


I 
R 


